home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-seriously_amiga-
/
misc
/
amised
/
scripts
/
amigaguide.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-04-19
|
497b
|
22 lines
/* Switch to AmigaGuide Macro */
options results
if address()="REXX" then
address 'AMISPORT.1'
'Cursup TOP'
'GetLine'
if upper(left(result,9))~="@DATABASE" then
do
'Request BODY="This does not look like an|AmigaGuide database, do you want|to convert it ?" BUTTON="¶_Yes|_No|_Cancel"'
if result=1 then
do
'Insert TEXT="@Database¶¶@node MAIN¶¶"'
'Cursdown BOTTOM'
'Insert TEXT="¶¶@endnode¶¶"'
'Cursup TOP'
end
else if result=3 then exit
end
'Viewer NAME="AmigaGuide"'